home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
The World of Computer Software.iso
/
faq-s.zip
/
RENAME.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-25
|
3KB
|
109 lines
procedure modboard;
var sn:sstr;
nfp,nbp,nff:lstr;
qf:file;
d:integer;
qe:char;
begin
repeat
clearscr;
writehdr ('Modify Sub-board');
writeln(^P'['^S'A'^P'] '^R'Sub-board Name : '^S+curboard.boardname);
writeln(^P'['^S'B'^P'] '^R'Access Name/# : '^S+curboard.shortname);
writeln(^P'['^S'C'^P'] '^R'Board Sponsor : '^S+curboard.sponsor);
writeln(^P'['^S'D'^P'] '^R'Access Level : '^S+strr(curboard.level));
writeln(^P'['^S'E'^P'] '^R'Auto Delete : '^S+strr(curboard.autodel));
write (^P'['^S'F'^P'] '^R'Allow Anonymous: '^S);
if curboard.anony then writeln('Yes') else
writeln(^S'No');
writeln(^P'['^S'G'^P'] '^R'CelerityNet ID : '^S+strr(curboard.net)+^M);
writestr (^P'['^R'Board Modify Command'^P']'^S': *');
if hungupon then exit;
qe:=upcase(input[1]);
case qe of
'A':getbstr ('Board Name',curboard.boardname);
'B':begin sn:=curboard.shortname;
getbgen ('Access Name/Number',sn);
writelog (5,5,curboard.boardname+' ['+sn+']');
{ if sn=curboard.shortname then exit; }
if not validbname(sn) then begin
writeln ('Invalid board name!');
exit;
end;
if boardexist(sn) then begin
writeln ('Sorry! Board already exists!');
exit;
end;
begin curboard.shortname:=sn;
writecurboard;
{close (bfile);
close (ffile);}
nfp:=datadir+copy(curboard.shortname,1,8)+'.';
nbp:=nfp+'MS'+strr(conn);
nff:=nfp+'FI'+strr(conn);
assign (qf,nbp);
erase (qf);
d:=ioresult;
assign (qf,nff);
erase (qf);
d:=ioresult;
rename (bfile,nbp);
rename (ffile,nff);
close (bfile);
close (ffile);
setactive (curboard.shortname,false);
writecurboard;
end;
end;
'C':setsponsor;
'D':getblevel;
'E':getautodel;
'F':setanon;
'G':setnet;
end
until (qe='Q') or (qe='q');
writecurboard;
end;
procedure renameboard;
var sn:sstr;
nfp,nbp,nff:lstr;
qf:file;
d:integer;
begin
getbstr ('Board Name',curboard.boardname);
sn:=curboard.shortname;
getbgen ('Access Name/Number',sn);
writelog (5,5,curboard.boardname+' ['+sn+']');
if match(sn,curboard.shortname) then exit;
if not validbname(sn) then begin
writeln ('Invalid board name!');
exit
end;
if boardexist(sn) then begin
writeln ('Sorry! Board already exists!');
exit
end;
if (validbname(sn)) and not (boardexist(sn)) then begin
curboard.shortname:=sn;
writecurboard;
close (bfile);
close (ffile);
nfp:=datadir+sn+'.';
nbp:=nbp+'MS'+strr(conn);
nff:=nff+'FI'+strr(conn);
assign (qf,nbp);
erase (qf);
d:=ioresult;
assign (qf,nff);
erase (qf);
d:=ioresult;
rename (bfile,nbp);
rename (ffile,nff);
setfirstboard;
q:=9
end;
end;